home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
pgm_ctrl
/
cuactrls
/
cslide.frm
< prev
next >
Wrap
Text File
|
1995-05-22
|
11KB
|
361 lines
VERSION 2.00
Begin Form frmSlider
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "Slider Demo"
ClientHeight = 3225
ClientLeft = 945
ClientTop = 1470
ClientWidth = 5565
ClipControls = 0 'False
Height = 3630
Left = 885
LinkTopic = "Form1"
ScaleHeight = 3225
ScaleWidth = 5565
Top = 1125
Width = 5685
Begin Data Data1
Caption = "Data1"
Connect = ""
DatabaseName = "C:\BP\CUACTLS\CUACTLS.MDB"
Exclusive = 0 'False
Height = 270
Left = 4020
Options = 0
ReadOnly = 0 'False
RecordSource = "Test"
Top = 2835
Width = 1155
End
Begin CUACommand cmdOK
Caption = "OK"
Default = -1 'True
Height = 345
Left = 3885
StandardButton = 1 'OK
TabIndex = 1
Top = 90
Width = 1260
End
Begin CUAFrame grp3
BackColor = &H00C0C0C0&
BorderStyle = 6 'Bump
Caption = "&Volume"
Font3D = 1 'Inset
Height = 2655
Left = 150
TabIndex = 3
Top = 525
Width = 3600
Begin CUASpin spnVol
Height = 105
Left = 3315
Max = 59
Orientation = 0 'Horizontal
TabIndex = 5
Top = 345
Width = 180
End
Begin CUASpin spnEq
Height = 180
Index = 4
Left = 2940
Max = 59
TabIndex = 17
Top = 2400
Width = 105
End
Begin CUASpin spnEq
Height = 180
Index = 3
Left = 2310
Max = 59
TabIndex = 18
Top = 2400
Width = 105
End
Begin CUASpin spnEq
Height = 180
Index = 2
Left = 1665
Max = 59
TabIndex = 19
Top = 2400
Width = 105
End
Begin CUASpin spnEq
Height = 180
Index = 1
Left = 990
Max = 59
TabIndex = 20
Top = 2400
Width = 105
End
Begin CUASpin spnEq
Height = 180
Index = 0
Left = 315
Max = 59
TabIndex = 21
Top = 2400
Width = 105
End
Begin CUASlide sldEq
BackColor = &H00C0C0C0&
DataField = "Tal5"
DataSource = "Data1"
ForeColor = &H00FFFFFF&
Height = 1200
Index = 4
Left = 2850
Orientation = 1 'Vertical
TabIndex = 10
Top = 1200
Value = 8
Width = 465
End
Begin CUASlide sldEq
BackColor = &H00C0C0C0&
DataField = "Tal1"
DataSource = "Data1"
ForeColor = &H00000000&
Height = 1200
Index = 0
Left = 225
Orientation = 1 'Vertical
TabIndex = 6
Top = 1200
Value = 7
Width = 450
End
Begin CUASlide sldEq
BackColor = &H00C0C0C0&
DataField = "Tal2"
DataSource = "Data1"
ForeColor = &H00800000&
Height = 1200
Index = 1
Left = 900
Orientation = 1 'Vertical
TabIndex = 7
Top = 1200
Value = 8
Width = 450
End
Begin CUASlide sldEq
BackColor = &H00C0C0C0&
DataField = "Tal3"
DataSource = "Data1"
ForeColor = &H00808000&
Height = 1200
Index = 2
Left = 1575
Orientation = 1 'Vertical
TabIndex = 8
Top = 1200
Width = 450
End
Begin CUASlide sldEq
BackColor = &H00C0C0C0&
DataField = "Tal4"
DataSource = "Data1"
ForeColor = &H0080FFFF&
Height = 1200
Index = 3
Left = 2220
Orientation = 1 'Vertical
TabIndex = 9
Top = 1200
Value = 6
Width = 450
End
Begin CUASlide sldVol
BackColor = &H00C0C0C0&
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H000000FF&
Height = 660
Left = 180
ScaleStep = 2
TabIndex = 4
Top = 255
Value = 2
Width = 3135
End
Begin CUALabel lbl1
Caption = "15000"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 4
Left = 2790
TabIndex = 16
Top = 975
Width = 540
End
Begin CUALabel lbl1
Caption = "50"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 3
Left = 270
TabIndex = 15
Top = 975
Width = 225
End
Begin CUALabel lbl1
Caption = "1000"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 2
Left = 1515
TabIndex = 12
Top = 975
Width = 435
End
Begin CUALabel lbl1
Caption = "400"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 0
Left = 885
TabIndex = 14
Top = 975
Width = 330
End
Begin CUALabel lbl1
Caption = "5000"
Font3D = 1 'Inset
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 195
Index = 1
Left = 2160
TabIndex = 13
Top = 975
Width = 435
End
Begin CUALabel lblVol
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "2"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 195
Left = 3315
TabIndex = 11
Top = 135
Width = 225
End
End
Begin CUALabel lbl2
Caption = "Sometimes you see scroll bars inaccurately used as a poor man's slider. Scroll bars should only be used for - yes - scrolling."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 1935
Left = 3885
TabIndex = 2
Top = 630
Width = 1425
End
Begin CUALabel lbl
Caption = "CUASlider is a slider that works the same way as it's real life correspondence."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000080&
Height = 435
Index = 6
Left = 150
TabIndex = 0
Top = 90
Width = 3540
End
End
Option Explicit
Sub cmdOK_Click ()
Unload Me
End Sub
Sub Data1_Error (DataErr As Integer, Response As Integer)
Response = 0
End Sub
Sub Form_Load ()
Dim i%
Data1.DatabaseName = DatabaseName
spnVol.Max = sldVol.Max
spnVol = sldVol
For i = 0 To 4
spnEq(i).Max = sldEq(i).Max
spnEq(i) = sldEq(i)
Next
End Sub
Sub sldEq_Change (Index As Integer)
spnEq(Index) = sldEq(Index)
End Sub
Sub sldVol_Change ()
spnVol = sldVol
lblVol = sldVol
End Sub
Sub spnEq_Change (Index As Integer)
sldEq(Index) = spnEq(Index)
End Sub
Sub spnVol_Change ()
sldVol = spnVol
End Sub
